home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ WinXP NTP Servers.xpl < prev    next >
Text File  |  2001-04-28  |  1KB  |  48 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH 1"="Network\Network Time Protocol"
  5. "NAME"="NTP Servers"
  6. "VERSION"="1.02"
  7. "OSVersion"="000001"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="NTP Server 1"
  10. "TEXT 2"="NTP Server 2"
  11. "TEXT 3"="NTP Server 3"
  12. "TEXT 4"="NTP Server 4"
  13. "TEXT 5"="NTP Server 5"
  14. "DESCRIPTION 1"="Specifies your desired NTP (network time protocol) servers.  Windows will automatically set your computer's clock to synchronize with the remote server's clock."
  15. "DESCRIPTION 2"="Can be located on the Internet, or your LAN/WAN, etc."
  16. "DESCRIPTION 3"="The default values for NTP Servers 1 and 2 are and time.windows.com and time.nist.gov"
  17. "DESCRIPTION 4"="You may change them to whatever you wish.  The Internet has many NTP servers available, usually free to synchronize with."
  18. "AUTHOR"="Xteq Systems (CptSiskoX)"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="No time like the present. "
  22.  
  23.  
  24. sPath="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers\"
  25. Sub Plugin_Initialize 
  26.  if RegPathExists(sPath) then
  27.   for l=1 to 5 
  28.    s=RegReadValue(sPath & l)
  29.    Call SetUIElement(l,s)
  30.   Next
  31.  else
  32.   Disable
  33.  end if
  34. End Sub
  35.  
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  for l=1 to 5
  41.   s=GetUIElement(l)
  42.   Call RegWriteValue(sPath & l,s,1)
  43.  next
  44. End Sub
  45.  
  46. Sub Plugin_Terminate 
  47. End Sub
  48.